home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / iritsm3s.zip / CONE3CYL.IRT < prev    next >
Text File  |  1991-03-10  |  889b  |  48 lines
  1. #
  2. # Intersection of cone and a cylinder:
  3. # Try this one with resolution equal 20 - slower, but much nicer!
  4. #
  5. #            Created by Gershon Elber,    Jan. 89
  6. #
  7.  
  8. save_mat = view_mat;
  9. view_mat = view_mat * scale(vector(0.2, 0.2, 0.2));
  10. save_res = resolution;
  11. resolution = 32;
  12.  
  13. cone1 = con2(vector(0,0,-1),vector(0,0,4),2,1);
  14. cylin1= cylin(vector(0,3,1),vector(0,-6,0),0.7);
  15.  
  16. a1 = cone1+cylin1;
  17. beep(500,300);
  18. interact(list(a1), false);
  19. free(a1);
  20.  
  21. a2 = cone1*cylin1;
  22. beep(500,300);
  23. interact(list(a2), false);
  24. free(a2);
  25.  
  26. a3 = cone1-cylin1;
  27. beep(500,300);
  28. interact(list(a3), false);
  29. free(a3);
  30.  
  31. a4 = cylin1-cone1;
  32. beep(500,300);
  33. interact(list(a4), false);
  34. free(a4);
  35.  
  36. intercrv = true;
  37. a5 = cone1*cylin1;
  38. beep(500,300);
  39. interact(list(a5,cylin1,cone1), false);
  40. free(a5);
  41. intercrv = false;
  42.  
  43. free(cylin1);
  44. free(cone1);
  45.  
  46. resolution = save_res;
  47. view_mat = save_mat;
  48.